100 PRINT"[147]":POKE53280,3:POKE53281,0 105 DIMC$(16),CH$(15),LD(10,7),PC$(27),PT$(27) 110 PRINTCHR$(142):B$=" " 115 FORI=0TO15:READC$(I):NEXT 120 FORI=0TO15:READCH$(I):NEXT 125 FORI=1TO27:READPC$(I),PT$(I):NEXT:FORI=1TO4:READLT(I),LT$(I):NEXT 130 PRINT"[147][159] "; 135 PRINT" LOADSTAR PRESENTS... "; 140 PRINT" ":PRINT 145 PRINT" [162] [162][162] [146][162] [159]  [146]  [146] [156] [162] [162][146]  [162] [162][162] [146][162]   [146] [162] [162][146] " 150 PRINT"[145]  [146]  [146] [159]  [146]  [146] [156]  [146]   [146]   [162][146] " 155 PRINT"[145] [162] [146][162][162] [162][146] [159]  [146]  [146] [156]  [146]   [146] [162][162]   [162] [146][162] " 160 PRINT"[145] [162][162][162][146] [159] [162][162][162][162][146] [156] [162][162][162][162][146]  [162][162][162][162][146]  [162][162][146] [162][162][146] " 165 PRINTTAB(8)"[158][161][187][172][146][161][129] [187][172][146] [149][161][187][172][146][161][150][187][146][161] [153][187][172][162][146][161][154][172][172][187][146][187]" 170 PRINTTAB(8)"[158] [161][146][161] [129] [161][146][161] [149] [161][146][161] [150][161][146][161] [153][161][188][146][161] [154][188][188][146][162] " 175 PRINTTAB(8)"[158] [161][146][161] [129] [161][146][161] [149] [161][146][161] [150][161][146][161] [187][153][161][146][161][190][187][154][172][187][161][146][161]" 180 PRINTTAB(8)"[158] [162][162][146] [129] [162][162][146] [149] [162][162][146] [150][162][162][162][146][190][153][162][162][162][146][190][154] [162][162][146] " 185 PRINT""TAB(6)"[150] [146]" 190 PRINTTAB(6)"[150] [159] [150] [146]" 195 PRINTTAB(6)" [159] (C) 1988 BY JIM SPEERS [150] [146]" 200 PRINTTAB(6)" [159] [150] [146]" 205 PRINTTAB(6)" [159] SPACEBAR TO CONTINUE [150] [146]" 210 PRINTTAB(6)" [159] [150] [146]" 215 PRINTTAB(6)" [146]"; 220 GETZ$:IFZ$=""ORZ$<>" "THEN220 225 PRINT"[147]" 230 POKE214,10:PRINT:PRINTTAB(8)"[159][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][146]" 235 PRINTTAB(8)"[221][150] [159][221][146]" 240 PRINTTAB(8)"[221][150] INSTRUCTIONS? (Y/N) [159][221][146]" 245 PRINTTAB(8)"[221][150] [159][221][146]" 250 PRINTTAB(8)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][146]" 255 GETZ$:IFZ$=""OR(Z$<>"Y"ANDZ$<>"N")THEN255 260 IFZ$="Y"THENGOSUB1165 265 BR$="[150][194][146]":PRINT"[147]" 270 PRINTTAB(7)BR$" "BR$ 275 PRINTTAB(7)"[150][194] FONT MENU [194][146]" 280 PRINTTAB(7)BR$" "BR$ 285 PRINTTAB(7)BR$" "BR$ 290 PRINTTAB(7)BR$" [159]A) UPPER CASE/GRAPHIC "BR$ 295 PRINTTAB(7)BR$" [159]B) LOWER/UPPER CASE "BR$ 300 PRINTTAB(7)BR$" [159]C) LOADSTAR "BR$ 305 PRINTTAB(7)BR$" [159]D) NILES "BR$ 310 PRINTTAB(7)BR$" [159]E) CASS "BR$ 315 PRINTTAB(7)BR$" [159]F) BOLD "BR$ 320 PRINTTAB(7)BR$" [159]G) NARROW "BR$ 325 PRINTTAB(7)BR$" [159]H) UNDERLINED "BR$ 330 PRINTTAB(7)BR$" [159]I) DOUBLE WIDTH "BR$ 335 PRINTTAB(7)BR$" [159]J) SCRIPT "BR$ 340 PRINTTAB(7)BR$" [159]K) REVERSED "BR$ 345 PRINTTAB(7)BR$" [159]L) ITALIC "BR$ 350 PRINTTAB(7)BR$" [159]M) YOUR CUSTOM FONT "BR$ 351 PRINTTAB(7)BR$" "BR$ 352 PRINTTAB(7)BR$"[158] Q) QUIT TO LOADSTAR "BR$ 355 PRINTTAB(7)BR$" "BR$ 360 PRINTTAB(7)BR$" "BR$ 365 PRINTTAB(7)BR$" SELECT LETTER "BR$ 370 PRINTTAB(7)BR$" "BR$ 375 GETZ$:IFZ$=""THEN375 376 IFZ$="Q"THEN3000 380 IFZ$<"A"ORZ$>"M"THEN375 385 IFZ$<>"M"THEN440 390 PRINT"[147]":POKE214,11:PRINT 395 PRINTTAB(7)"[159]FILENAME: [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 400 POKE214,11:PRINT:PRINTTAB(17); 405 GOSUB1150:L1=32:H1=127:L2=160:H2=255:LI=16:GOSUB1080:NF$=Q$:IFQ$=""THEN265 410 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":INPUT#15,ER:CLOSE15 415 IFER<>63THEN465 420 POKE214,11:PRINT:PRINT" INSERT DISK CONTAINING YOUR FONT. 425 [153]:[153][163]14)"HIT SPACEBAR." 430 [161]QZ$:[139]QZ$[178]""[176]QZ$[179][177]" "[167]430 435 [137]465 440 [139]Z$[178]"A"[167]BS[178]53248:[151]53272,21:SA[178]0:[137]475 445 [139]Z$[178]"B"[167]BS[178]55296:[151]53272,23:SA[178]7:[137]475 450 NF$[178]"FONT"[170]Z$ 455 [153]"LOAD":[151]214,10:[153] 460 [153]"  PLEASE WAIT WHILE LOADING..." 465 [158]57812NF$,8,0:[151]780,.:[151]781,0:[151]782,8:[158]65493 470 BS[178]2048:[151]53272,19:SA[178]7 475 R$[178]"WAIT":[139]Z$[178]"I"[167]R$[178]"" 480 [153]"LOAD":[151]214,11:[153]: 485 [153][163]7)R$"ENTER TITLE: TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(WAIT" 490 [151]214,11:[153]:[153][163]20); 495 [141]1150:L1[178]32:H1[178]127:L2[178]160:H2[178]255:LI[178]10:[141]1080 500 IN$[178]Q$ 505 [153]"LOAD"[163]12)R$" COLOR NUMBERS: WAIT" 510 [153]R$"0-BLACK 4-PURPLE 8-ORANGE 12-M.GRAYWAIT" 515 [153]R$"1-WHITE 5-GREEN 9-BROWN 13-L.GREENWAIT" 520 [153]R$"2-RED 6-BLUE 10-L.RED 14-L.BLUEWAIT" 525 [153]R$"3-CYAN 7-YELLOW 11-D.GRAY 15-L.GRAYWAIT" 530 [153]" "IN$ 535 [153]R$" ENTER COLOR # FOR INDICATED LETTER: WAIT" 540 [129]I[178]1[164][195](IN$) 545 [151]214,8:[153] 550 [153][200](B$,I[170]1)"DEF^" 555 [151]214,12:[153] 560 [153]R$"COLOR # CMDCMDCMDCMDCMDWAIT"; 565 [141]1150:L1[178]48:H1[178]57:LI[178]2 570 [139]Z$[178]"I"[167][141]1075:[137]580 575 [141]1080 580 C(I)[178][197](Q$):[139]C(I)[179]0[176]C(I)[177]15[167]555 585 [130]I 590 [153]:[153]R$"BORDER COLOR # CMDCMDCMDCMDCMDWAIT"; 595 [141]1150:L1[178]48:H1[178]57:LI[178]2 600 [139]Z$[178]"I"[167][141]1075:[137]610 605 [141]1080 610 BO[178][197](Q$):[139]BO[179]0[176]BO[177]15[167][153]"ON";:[137]590 615 [153]:[153]R$"SCREEN COLOR # CMDCMDCMDCMDCMDWAIT"; 620 [141]1150:L1[178]48:H1[178]67:LI[178]2 625 [139]Z$[178]"I"[167][141]1075:[137]635 630 [141]1080 635 BA[178][197](Q$):[139]BA[179]0[176]BA[177]15[167][153]"ON";:[137]615 640 E[178]0:[129]I[178]1[164][195](IN$):[139]BA[178]C(I)[167]E[178]1:M[178]I:I[178][195](IN$) 645 [130]I:[139]E[178]0[167]655 650 [153]:[153]R$"SCREEN COLOR SAME AS LETTER # CMDCMDCMDCMD";M;"ONONONWAIT":[137]615 655 [151]646,[194](53281) 660 [153]"LOAD"IN$ 665 [151]56333,127:[151]1,[194](1)[175]251 670 [129]I[178]1[164][195](IN$):L[178][194](1023[170]I):X[178]BS[170]8[172]L 675 [129]J[178]0[164]7:LD(I,J)[178][194](X[170]J):[130]J 680 [130]I:[151]1,[194](1)[176]4:[151]56333,129 685 [151]53272,21 690 [151]214,10:[153]:[153][163]9)"DEF WAIT" 695 [153][163]9)" PATIENCE.... WAIT" 700 [153][163]9)" WAIT" 705 [129]I[178]1[164]4:P$(I)[178]"":[130] 710 [129]K[178]0[164]6[169]2:I[178]K[173]2[170]1:[151]646,LT(I) 715 [151]214,13:[153]:[153][163]9)" WAIT" 720 [153][163]9)" WORKING ON"LT$(I)"LINE! WAIT" 725 [153][163]9)" WAIT" 730 [129]J[178]1[164][195](IN$):[139]J[178]1[167]P$(I)[178]P$(I)[170]C$(C(J)):[137]745 735 [139]C(J)[178]C(J[171]1)[167]745 740 P$(I)[178]P$(I)[170]C$(C(J)) 745 [129]L[178]7[164]1[169][171]2:T[178]0 750 [139](LD(J,K)[175](2[174]L))[178]2[174]L[167]T[178]T[170]1 755 [139](LD(J,K)[175](2[174](L[171]1)))[178]2[174](L[171]1)[167]T[178]T[170]2 760 [139](LD(J,K[170]1)[175](2[174]L))[178]2[174]L[167]T[178]T[170]4 765 [139](LD(J,K[170]1)[175](2[174](L[171]1)))[178]2[174](L[171]1)[167]T[178]T[170]8 770 [145]T[170]1[137]785,785,785,775,785,785,775,775,785,785,775,775,785,775,775,775 775 [139][201](P$(I),1)[179][177]"WAIT"[167]785 780 P$(I)[178][200](P$(I),[195](P$(I))[171]1)[170][202](CH$(T),2,5):[137]790 785 P$(I)[178]P$(I)[170]CH$(T) 790 [130]L,J,K 795 [151]53280,BO:[151]53281,BA:[153]"LOAD" 800 TB[178](40[171]([195](IN$)[172]4))[173]2 805 [139]TB[178]0[167][129]I[178]2[164]4:P$(I)[178]"ON"[170]P$(I):[130]I 810 [151]53272,21 815 [129]I[178]1[164]4:[153][163]TB)P$(I):[130]I 820 X[178]15[175]([194](53281)):[139](X[178]0[176]X[178]9[176]X[178]11[176]X[178]12)[167][153]"OPEN";:[137]830 825 [153]"STOP" 830 [151]214,13:[153]:[153]B$B$B$ 835 [153]"ON"[163]10)"SAVE TO DISK? (Y/N) "; 840 [161]Z$:[139]Z$[178]""[176](Z$[179][177]"Y"[175]Z$[179][177]"N")[167]840 845 [139]Z$[178]"N"[167]930 850 [151]214,13:[153]:[153]B$B$B$ 855 [153]"ON ENTER FILENAME: TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(" 860 [151]214,13:[153]:[153][163]20); 865 [141]1150:L1[178]35:H1[178]127:S1[178]32:S2[178]33:LI[178]16:[141]1080:[153] 870 [153]B$B$B$ 875 NF$[178]Q$ 880 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER,ER$:[160]15 885 [139]ER[179][177]63[167]905 890 [153]"ONON INSERT A DISK FOR YOUR DATA" 895 [153]" HIT SPACEBAR." 900 [161]Z$:[139]Z$[178]""[176]Z$[179][177]" "[167]900 905 [159]15,8,15:[159]3,8,3,"0:"[170]NF$[170]",S,W" 910 [132]15,ER,ER$ 911 [139]ER[177]20[167][153]"LOAD","DISK ERROR "ER$:[160]3:[160]15:[137]850 915 [152]3,BO:[152]3,BA:[152]3,TB 920 [129]I[178]1[164]4:[152]3,P$(I):[130] 925 [160]3:[160]15 930 [151]214,13:[153]:[153]B$B$B$ 935 [151]214,15:[153]:[153]B$B$B$ 940 [153]"ONONON LISTING TO PRINTER? (Y/N) "; 945 [161]Z$:[139]Z$[178]""[176](Z$[179][177]"Y"[175]Z$[179][177]"N")[167]945 950 [139]Z$[178]"N"[167]1020 951 [159]15,4,15:[160]15:[139]ST[179][177]0 [167] [141] 3100:[137]935 955 [159]4,4,SA:[152]4,IN$:[152]4 960 [129]I[178]1[164]4:[152]4:[152]4,"LINE";I:[152]4:NL[178]1:[152]4,"[QUOTE]"; 965 [129]J[178]1[164][195](P$(I)):[129]K[178]1[164]27 970 [139][202](P$(I),J,1)[179][177]PC$(K)[167]985 975 [152]4,"["PT$(K)"]"; 980 NL[178]NL[170]1:[139]NL[178]11[167][152]4:NL[178]0 985 [130]K,J:[152]4,"[QUOTE]";:[152]4 990 [130]I:[152]4 995 [152]4,"FOR BORDER COLOR USED, POKE53280,"[202]([196](BO),2,2) 1000 [152]4:[152]4,"FOR SCREEN COLOR USED, POKE53281,"[202]([196](BA),2,2) 1005 [139][195](IN$)[178]10[167][152]4,"NO TAB REQUIRED TO CENTER.":[137]1015 1010 [152]4:[152]4,"TO CENTER, USE TAB("[202]([196](TB),2,2)") BEFORE EACH LINE" 1015 [152]4:[160]4 1020 [151]214,13:[153]:[153]" RETURN TO LOADSTAR? (Y/N)" 1025 [161]Z$:[139]Z$[178]""[176](Z$[179][177]"Y"[175]Z$[179][177]"N")[167]1025 1030 [139]Z$[178]"N"[167][151]53280,0:[151]53281,0:[137]225 1035 [151]214,13:[153]:[153]" ARE YOU SURE? " 1040 [161]Z$:[139]Z$[178]""[176](Z$[179][177]"Y"[175]Z$[179][177]"N")[167]1040 1045 [139]Z$[178]"N"[167][151]53280,0:[151]53281,0:[137]225 1050 [137] 3050 1075 RS$[178]"":O$[178]"WAIT" 1080 [151]204,0:Q$[178]"":CT[178]0 1085 [161]ZZ$:[139]ZZ$[178]""[167]1085 1086 [139]ZZ$[178]"*"[176]ZZ$[178]"$"[176]ZZ$[178]","[176]ZZ$[178]"@"[176]ZZ$[178]"?"[167] 1085 1090 X[178][198](ZZ$):[139]X[178]20[167]1120 1095 [139]X[178]13[167]1130 1100 [139]X[177][178]L1[175]X[179][178]H1[167]1135 1105 [139]X[177][178]L2[175]X[179][178]H2[167]1135 1110 [139]X[178]S1[176]X[178]S2[176]X[178]S3[167]1135 1115 [137]1085 1120 [139]CT[179]1[167]1085 1125 [153]"CMD CMDCMD";:CT[178]CT[171]1:Q$[178][200](Q$,[195](Q$)[171]1):[137]1085 1130 [151]204,1:[153]" CMD";:[142] 1135 CT[178]CT[170]1:[139]CT[177]LI[167]CT[178]CT[171]1:[137]1085 1140 [153]RS$ZZ$O$;:[139]ZZ$[178][199](34)[167][153][199](34)"CMD CMD"; 1145 Q$[178]Q$[170]ZZ$:[137]1085 1150 L1[178]0:L2[178]L1:H1[178]L1:H2[178]L1:S1[178]L1:S2[178]L1:SE[178]L1:RS$[178]"":O$[178]"":[142] 1155 [161]Z$:[139]Z$[178]""[167]1155 1160 [128] 1165 [151]147,0:[158]57812"FONTD",8,1:[158]62631 1170 [151]53272,19 1175 [153]"LOAD":[151]53280,3:[151]53281,3 1180 [153][199](14); 1185 BI$[178]" " 1190 [153]"OPEN (null)AGE 1 OF 7 ":[153]BI$ 1195 [153]" (null)IRED OF SPENDING HOURS WITH YOUR " 1200 [153]" PAPER AND PENCIL DESIGNING TITLE " 1205 [153]" LETTERS OR CHARACTERS? (null)HIS PROGRAM " 1210 [153]" WILL HELP. ":[153]BI$ 1215 [153]" (null)HE PROGRAM READS THE BIT-PATTERN " 1220 [153]" OF YOUR TITLE AND CONVERTS IT TO " 1225 [153]" STRINGS OF GRAPHICS WHICH PRINT " 1230 [153]" LETTERS 4 COLUMNS BY 4 ROWS IN SIZE. " 1235 [153]" (null)OU MAY SELECT THE LENOMMODORE FONTS, " 1240 [153]" TEN CUSTOM FONTS, OR A FONT OF YOUR " 1245 [153]" OWN DESIGN. ":[153]BI$ 1250 [153]" ATNFTER SELECTING A FONT, YOU WILL " 1255 [153]" ENTER YOUR TITLE, WHICH CAN BE FROM " 1260 [153]" ONE TO 10 LETTERS. (null)SE STR$VAL(null)VAL(null)VAL TO " 1265 [153]" MAKE CORRECTIONS. LEFT$IT (null)VAL(null)(null)(null)(null) WHEN " 1270 [153]" YOUR ENTRY IS COMPLETE. (null)OME FONTS " 1275 [153]" REQUIRE SPECIAL ENTRY TECHNIQUES. " 1280 [153]" ASC1-ASCWD ASC3-PEEKACK ASC5-1ST (null)G ASC7-(null)ENU " 1285 [151]53281,0 1290 [161]Z$:[139]Z$[178]""[167]1290 1295 X[178][198](Z$)[171]132:[139]X[179]1[176]X[177]4[167]1290 1300 [145]X[137]1305,1175,1175,1975 1305 [151]53281,3:[153]"LOAD" 1310 [153]" (null)AGE 2 OF 7 ":[153]BI$ 1315 [153]" RIGHT$N THE (null)NDERLINE AND (null)EVERSED " 1320 [153]" FONTS, AN UNDERLINED OR REVERSED " 1325 [153]" SPACE IS ENTERED WITH SHIFT/SPACE. " 1330 [153]" (null)HE STR$OUBLE WIDTH FONT REQUIRES TWO " 1335 [153]" CHARACTERS FOR EACH ENTRY. VALNTER " 1340 [153]" THE SHIFTED, FOLLOWED BY THE UN- " 1345 [153]" SHIFTED CHARACTER (I.E. ATN IS ENTERED " 1350 [153]" AS 'ATNA', AND 3 AS '#3'). (null)ERO IS " 1355 [153]" ENTERED AS '*0'. ":[153]BI$ 1360 [153]" (null)OU WILL NEXT BE ASKED TO SELECT " 1365 [153]" A COLOR FOR EACH LETTER IN THE TITLE." 1370 [153]" LENOLORS MAY BE MIXED IN ANY WAY YOU " 1375 [153]" CHOOSE. ATNLL MAY BE THE SAME, BUT " 1380 [153]" THE CHOICE MUST BE MADE FOR EACH. ":[153]BI$ 1385 [153]" (null)OUR FINAL CHOICES ARE THE BORDER " 1390 [153]" AND SCREEN COLORS. (null)CREEN COLOR THE " 1395 [153]" SAME AS A LETTER WILL BE REFUSED. " 1400 [153]" ASC1-ASCWD ASC3-PEEKACK ASC5-1ST (null)G ASC7-(null)ENU " 1405 [151]53281,0 1410 [161]Z$:[139]Z$[178]""[167]1410 1415 X[178][198](Z$)[171]132:[139]X[179]1[176]X[177]4[167]1410 1420 [145]X[137]1425,1175,1175,1975 1425 [151]53281,3:[153]"LOAD" 1430 [153]" (null)AGE 3 OF 7 ":[153]BI$ 1435 [153]" LENALCULATION OF THE PRINT STRINGS " 1440 [153]" WILL NOW BEGIN. (null)HIS TAKES A " 1445 [153]" NOTICEABLE TIME (WHICH ALWAYS SEEMS " 1450 [153]" LONGER THAN IT ACTUALLY IS). (null)HE " 1455 [153]" AVERAGE TIME IS ABOUT 5-6 SECONDS " 1460 [153]" FOR EACH LETTER IN THE TITLE, SO THE " 1465 [153]" LONGEST SHOULD TAKE ONLY ABOUT ONE " 1470 [153]" MINUTE. (null)ROGRESS OF THE CALCULATION " 1475 [153]" OF THE FOUR GRAPHIC ROWS WILL BE " 1480 [153]" SHOWN ON THE SCREEN. (null)HEN FINISHED, " 1485 [153]" A SAMPLE OF YOUR TITLE WILL PRINT. ":[153]BI$ 1490 [153]" (null)OU ARE NOW GIVEN THE OPTION OF " 1495 [153]" SAVING THE STRINGS TO DISK. RIGHT$F THIS " 1500 [153]" OPTION IS CHOSEN, YOU WILL BE ASKED " 1505 [153]" FOR A FILENAME, AND THE DATA WILL BE " 1510 [153]" SAVED AS A SEQUENTIAL FILE. ":[153]BI$:[153]BI$ 1515 [153]" ASC1-ASCWD ASC3-PEEKACK ASC5-1ST (null)G ASC7-(null)ENU " 1520 [151]53281,0 1525 [161]Z$:[139]Z$[178]""[167]1525 1530 X[178][198](Z$)[171]132:[139]X[179]1[176]X[177]4[167]1525 1535 [145]X[137]1540,1305,1175,1975 1540 [151]53281,3:[153]"LOAD" 1545 [153]" (null)AGE 4 OF 7 ":[153]BI$ 1550 [153]" (null)HE PROGRAM SAVES THE BORDER AND " 1555 [153]" SCREEN COLORS, AND THE NUMBER OF " 1560 [153]" BLANK SPACES WHICH MUST PRECEDE EACH " 1565 [153]" STRING IN ORDER TO CENTER THE LINE. " 1570 [153]" (null)HE TITLE CAN BE DISPLAYED WITH A " 1575 [153]" PROGRAM SUCH AS: ":[153]BI$ 1580 [153]" 10 OPEN15,8,15 " 1585 [153]" 20 OPEN3,8,3,"[199](34)"0:FILENAME,S,R"[199](34)" " 1590 [153]" 30 INPUT#3,BO:INPUT#3,BA:INPUT#3,TB " 1595 [153]" 40 FORI=1TO4:INPUT#3,P$(I):NEXT " 1600 [153]" 50 CLOSE3:CLOSE15 " 1605 [153]" 60 POKE53280,BO:POKE53281,BA " 1610 [153]" 70 POKE214,[0-19]:PRINT " 1615 [153]" (TO POSITION THE TITLE VERTICALLY) " 1620 [153]" 80 FORI=1TO4:PRINTTAB(TB)P$(I):NEXTI " 1625 [153]" 90 END ":[153]BI$:[153]BI$ 1630 [153]" ASC1-ASCWD ASC3-PEEKACK ASC5-1ST (null)G ASC7-(null)ENU " 1635 [151]53281,0 1640 [161]Z$:[139]Z$[178]""[167]1640 1645 X[178][198](Z$)[171]132:[139]X[179]1[176]X[177]4[167]1640 1650 [145]X[137]1655,1425,1175,1975 1655 [151]53281,3:[153]"LOAD" 1660 [153]" (null)AGE 5 OF 7 ":[153]BI$ 1665 [153]" (null)ITH LONGER TITLES, THIS PROGRAM " 1670 [153]" MAY CAUSE A 'STRING TOO LONG' ERROR " 1675 [153]" RIGHT$F THIS OCCURS, CHANGE 40-50 TO READ ":[153]BI$ 1680 [153]" 40 I=1 " 1685 [153]" 45 GET#3,Z$:X=ASC(Z$) " 1690 [153]" 50 IFX=13THENI=I+1:GOTO45 " 1695 [153]" 55 P$(I)=P$(I)+Z$:IFST=0THEN45 ":[153]BI$ 1700 [153]" (null)HE FINAL OPTION IS A PRINTER " 1705 [153]" LISTING OF THE 4 TITLE LINES. (null)HE " 1710 [153]" ABBREVIATIONS USED ARE: ":[153]BI$ 1715 [153]" (null)VAL(null)(null)(null)=(null)EVERSE ON (LENONTROL-9) " 1720 [153]" (null)(null)(null)ASCASC=(null)EVERSE OFF (LENONTROL-0) " 1725 [153]" LEN(null)(null)=LENOMMODORE KEY " 1730 [153]" LEN(null)(null)=LENONTROL KEY ":[153]BI$:[153]BI$ 1735 [153]" ASC1-ASCWD ASC3-PEEKACK ASC5-1ST (null)G ASC7-(null)ENU " 1740 [151]53281,0 1745 [161]Z$:[139]Z$[178]""[167]1745 1750 X[178][198](Z$)[171]132:[139]X[179]1[176]X[177]4[167]1745 1755 [145]X[137]1760,1540,1175,1975 1760 [151]53281,3:[153]"LOAD" 1765 [153]" (null)AGE 6 OF 7 ":[153]BI$ 1770 [153]" (null)HIS LISTING CAN BE USED TO TYPE " 1775 [153]" THE DATA FOR THE FOUR LINES INTO " 1780 [153]" YOUR PROGRAM WHEREVER NEEDED. ":[153]BI$ 1785 [153]" (null)HE LINES CAN ALSO BE PRINTED TO " 1790 [153]" THE SCREEN AS GRAPHIC CHARACTERS BY " 1795 [153]" ENDING THE PROGRAM, THEN ENTERING IN " 1800 [153]" DIRECT MODE: ":[153]BI$ 1805 [153]" FORI=1TO4:PRINTCHR$(34)P$(I):NEXTI ":[153]BI$ 1810 [153]" (null)HE RESULTING LINES CAN BE MADE INTO " 1815 [153]" PROGRAM LINES BY USING THE RIGHT$(null)(null)VAL(null)(null) " 1820 [153]" KEY TO PLACE A LINE NUMBER AND STR$ATN(null)ATN " 1825 [153]" OR (null)(null)RIGHT$(null)(null) BEFORE EACH LINE, THEN " 1830 [153]" HITTING (null)VAL(null)(null)(null)(null). (null)HIS WILL WORK " 1835 [153]" ONLY IF THE STRING IS LESS THAN TWO " 1840 [153]" SCREEN LINES LONG. ":[153]BI$ 1845 [153]" ASC1-ASCWD ASC3-PEEKACK ASC5-1ST (null)G ASC7-(null)ENU " 1850 [151]53281,0 1855 [161]Z$:[139]Z$[178]""[167]1855 1860 X[178][198](Z$)[171]132:[139]X[179]1[176]X[177]4[167]1855 1865 [145]X[137]1870,1655,1175,1975 1870 [151]53281,3:[153]"LOAD" 1875 [153]" (null)AGE 7 OF 7 ":[153]BI$ 1880 [153]" (null)OU CAN USE YOUR OWN CUSTOM FONTS," 1885 [153]" CREATED WITH ASC(null)(null)(null) LEN(null)(null)(null)(null)(null)RIGHT$(null)VAL(null) (FROM " 1890 [153]" (null)(null)ATNSTR$(null)(null)ATN(null) #53) OR ANY SIMILAR " 1895 [153]" CHARACTER EDIT PROGRAM. (null)HE STARTING" 1900 [153]" ADDRESS OF YOUR FONT SHOULD BE " 1905 [153]" CHANGED TO $0800. ((null)EE PEEK(null)(null)VAL(null): LEN(null)(null)(null)(null)(null)" 1910 [153]" LENLEFT$ATN(null)ATNLEN(null)VAL(null)(null) ON (null)(null)ATNSTR$(null)(null)ATN(null) DISK #45 FOR " 1915 [153]" METHODS OF DOING THIS.) ":[153]BI$ 1920 [153]" (null)HEN YOUR OWN FONT IS CHOSEN FROM " 1925 [153]" THE (null)(null)RIGHT$LEN(null) (null)RIGHT$(null)(null)VAL(null) MENU, YOU WILL BE " 1930 [153]" ASKED TO ENTER THE FILENAME. (null)HERE " 1935 [153]" ARE NO SPECIAL RESTRICTIONS. ATNNY " 1940 [153]" LEGAL FILENAME MAY BE USED. " 1945 [129]I[178]1[164]5:[153]BI$:[130] 1950 [153]" ASC1-ASCWD ASC3-PEEKACK ASC5-1ST (null)G ASC7-(null)ENU " 1955 [151]53281,0 1960 [161]Z$:[139]Z$[178]""[167]1960 1965 X[178][198](Z$)[171]132:[139]X[179]1[176]X[177]4[167]1960 1970 [145]X[137]1870,1760,1175,1975 1975 [153]"LOAD"[199](142):[151]53280,0:[151]53281,0:[151]53272,21:[142] 1980 [131]"STOP","","","OPEN","CLR","","","SYS","FOR","VERIFY","DEF","POKE","PRINT#","PRINT","CONT","LIST" 1985 [131]" ","COS","LOG","NEWWAIT","RND","GET","SINWAIT","*WAIT","*","SIN","GETWAIT","RNDWAIT","NEW" 1990 [131]"LOGWAIT","COSWAIT"," WAIT" 1995 [131]"",REVON,"WAIT",RVOFF,"STOP",CTL-1,"",CTL-2,"",CTL-3,"OPEN",CTL-4,"CLR",CTL-5 2000 [131]"",CTL-6,"",CTL-7,"SYS",CTL-8,"FOR",COM-1,"VERIFY",COM-2,"DEF",COM-3,"POKE",COM-4 2005 [131]"PRINT#",COM-5,"PRINT",COM-6,"CONT",COM-7,"LIST",COM-8," ",SPACE,"COS",COM-V,"LOG",COM-C 2010 [131]"NEW",COM-I,"RND",COM-F,"GET",COM-K,"SIN",COM-B,"*",COM-D,"ON",CSR-^ 2015 [131]6," 1ST ",14," 2ND ",3," 3RD ",1," 4TH " 3000 [153]"LOAD":[151]214,10:[153]:[153]" QUIT TO LOADSTAR? ARE YOU SURE? (Y/N)" 3001 [161]A$:[139]A$[178]""[167] 3001 3002 [139]A$[178]"Y"[176]A$[178]"(null)"[167] 3050 3003 [139]A$[178]"N"[176]A$[178]"(null)"[167] 265 3004 [137] 3001 3050 [159]15,8,15,"R0:HELLO CONNECT=HELLO CONNECT":[132]15,ER:[160]15 3051 [139]ER[179][177]63[167] [153]"LOAD":[128] 3055 [151]2048,0:[153]"LOADSTOPP(null)43,1:P(null)44,8:LOAD"[199](34)"HELLO CONNECT"[199](34)",8" 3060 [151]631,19:[151]632,13:[151]633,82:[151]634,85:[151]635,78:[151]636,13:[151]198,6 3070 [162] 3100 [151]214,15:[153]:[153]B$B$B$ 3105 [153]"ONONON PRINTER NOT DETECTED : PRESS SPACE " 3107 [161]A$:[139]A$[179][177]" "[167]3107 3108 [137] 935